home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / vbsock11 / chat / server / sockwin.bas < prev    next >
BASIC Source File  |  1994-11-10  |  3KB  |  65 lines
  1. Global Const AF_UNSPEC = 0             '  /* unspecified */
  2. Global Const AF_UNIX = 1               '  /* local to host (pipes, portals) */
  3. Global Const AF_INET = 2               '  /* internetwork: UDP, TCP, etc. */
  4. Global Const AF_IMPLINK = 3            '  /* arpanet imp addresses */
  5. Global Const AF_PUP = 4                '  /* pup protocols: e.g. BSP */
  6. Global Const AF_CHAOS = 5              '  /* mit CHAOS protocols */
  7. Global Const AF_IPX = 6                '  /* IPX and SPX */
  8. Global Const AF_NS = 6                 '  /* XEROX NS protocols */
  9. Global Const AF_ISO = 7                '  /* ISO protocols */
  10. Global Const AF_OSI = AF_ISO           '  /* OSI is ISO */
  11. Global Const AF_ECMA = 8               '  /* european computer manufacturers */
  12. Global Const AF_DATAKIT = 9            '  /* datakit protocols */
  13. Global Const AF_CCITT = 10             '  /* CCITT protocols, X.25 etc */
  14. Global Const AF_SNA = 11               '  /* IBM SNA */
  15. Global Const AF_DECnet = 12            '  /* DECnet */
  16. Global Const AF_DLI = 13               '  /* Direct data link interface */
  17. Global Const AF_LAT = 14               '  /* LAT */
  18. Global Const AF_HYLINK = 15            '  /* NSC Hyperchannel */
  19. Global Const AF_APPLETALK = 16         '  /* AppleTalk */
  20. Global Const AF_NETBIOS = 17           '  /* NetBios-style addresses */
  21.  
  22. Global Const FD_READ = &H1
  23. Global Const FD_WRITE = &H2
  24. Global Const FD_OOB = &H4
  25. Global Const FD_ACCEPT = &H8
  26. Global Const FD_CONNECT = &H10
  27. Global Const FD_CLOSE = &H20
  28.  
  29. Global Const INVALID_SOCKET = -1
  30.  
  31.  
  32. Declare Function Send Lib "winsock" (ByVal s As Integer, ByVal buf As String, ByVal llen As Integer, ByVal flags As Integer) As Integer
  33. Declare Function WSACleanup Lib "winsock" () As Integer
  34.  
  35. Declare Function CleanSocket Lib "vbsock.vbx" () As Integer
  36. Declare Function OpenSocket Lib "vbsock.vbx" (ByVal PSin_Family As Integer, ByVal PPort As Integer) As Integer
  37. Declare Function InitSocket Lib "vbsock.vbx" () As Integer
  38. Declare Function CloseTheSocket Lib "vbsock.vbx" (ByVal PSocket As Integer) As Integer
  39. Declare Function ConnectSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal PPort As Integer, ByVal PHost As Long) As Integer
  40. Declare Function OpenSocketWithServer Lib "vbsock.vbx" (ByVal PServerName As String, ByVal PPort As Integer) As Integer
  41. Declare Function SelectSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal PWnd As Integer, ByVal PWindowMessage As Integer, ByVal PEvent As Long) As Integer
  42. Declare Function listenSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal BackLog As Integer) As Integer
  43. Declare Function GetSelectEventSocket Lib "vbsock.vbx" (ByVal PParam As Long) As Integer
  44. Declare Function RecvSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal PBuf As String, ByVal PLen As Integer, ByVal PFlags As Integer) As Integer
  45. Declare Function acceptSocket Lib "vbsock.vbx" (ByVal PSocket As Integer) As Integer
  46.  
  47. Global Const WSASYSNOTREADY = 10091
  48. Global Const WSAVERNOTSUPPORTED = 10092
  49. Global Const WSAEINVAL = 10022
  50.  
  51. Global Const BAD_SOCKET = -1
  52. Global Const UNRESOLVED_HOST = -2
  53. Global Const UNABLE_TO_BIND = -3
  54. Global Const UNABLE_TO_CONNECT = -4
  55.  
  56. ' The Base port number both send and recieved are
  57. ' calculated from. The values for Client/Server are
  58. ' automatically switched. You only need to set this
  59. ' base number.
  60. Global Const MSG_TCP_PORT = 1234
  61. Global Const WIN_SOCKET_MSG = 2000
  62.  
  63.  
  64.  
  65.